home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amosprog.lha / FastMouse.AMOS / FastMouse.amosSourceCode
AMOS Source Code  |  1995-10-02  |  2KB  |  86 lines
  1. '/*         FAST MOUSE v1.1         */ 
  2. '/*       Szybka Myszka v 1.0       */   
  3. '/*    (c) Marcin Szumiela 1994     */ 
  4.  
  5. '/*  Programik ten przedstawia      */ 
  6. '/*  spos�b odczytu pozycji         */ 
  7. '/*  myszki i mo�liwo�� obliczenia  */ 
  8. '/*  jej szybko�ci.                 */ 
  9.  
  10. '/*  Program napisany jest          */ 
  11. '/*  w AMOS Professional            */ 
  12. '/*  Jest kompatybilny z Amosem 1.3 */ 
  13.  
  14. '/*  otworzenie ekranu  */ 
  15.  
  16. Screen Open 1,320,256,4,Lowres : Curs Off : Flash Off : Cls 0
  17. Palette $0,$FFF,$F00,$F
  18. Curs Off 
  19. Ink 1,0
  20.  
  21. '/*  Dane dotycz�ce szybko�ciomierza */
  22.  
  23. Box 5,50 To 315,60
  24. Draw 5,50 To 5,45
  25. Text 5,43,"0"
  26. Draw 10*4,50 To 10*4,45
  27. Text 10*4,43,"10"
  28. Draw 20*4,50 To 20*4,45
  29. Text 20*4,43,"20"
  30. Draw 30*4,50 To 30*4,45
  31. Text 30*4,43,"30"
  32. Draw 40*4,50 To 40*4,45
  33. Text 40*4,43,"40"
  34. Draw 50*4,50 To 50*4,45
  35. Text 50*4,43,"50"
  36. Draw 60*4,50 To 60*4,45
  37. Text 60*4,43,"60"
  38. Draw 70*4,50 To 70*4,45
  39. Text 70*4,43,"70"
  40.  
  41. '/*  otworzenie p�tli  */
  42.  
  43. Do 
  44.  
  45. '/*  pobranie wsp��rz�dnych myszki  */ 
  46.  
  47.    X=X Mouse
  48.    Y=Y Mouse
  49.  
  50. '/*  czas na przesuni�cie myszki  */ 
  51.  
  52.    Wait 1
  53.  
  54. '/*  czyszczenie slidera szybko�ciomierza  */
  55.  
  56.    Ink 0,0
  57.    Bar 7,52 To 290,58
  58.  
  59. '/*  ponowne pobranie wsp��rz�dnych myszki  */ 
  60.  
  61.    X1=X Mouse
  62.    Y2=Y Mouse
  63.  
  64. '/*  obliczenie szybko�ci  */
  65.  
  66.    XX=X1-X
  67.    YY=Y1-Y
  68.    XA=Max(XX,YY)
  69.    XA=Abs(XA)
  70.  
  71. '/*  obliczenie rekordu  */
  72.  
  73.    REK=Max(REK,XA)
  74.  
  75. '/*  wydruk informacji na ekranie oraz pozycja slidera  */ 
  76.  
  77.    Ink 1,0
  78.    Text 10,10,Str$(XA)+" cm/sek  " : Text 120,10,"Rekord: "+Str$(REK)+" cm/sek"
  79.    Ink 2,0
  80.    Bar 7,52 To XA*4+8,58
  81.  
  82. '/*  koniec p�tli  */
  83.  
  84. Loop 
  85.  
  86. '/*  program mo�na przerwa� kombinacj� klawiszy CTRL+C  */